home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / CONAN13.422 < prev    next >
Text File  |  1993-04-12  |  3KB  |  63 lines
  1. 1CONAN13 3- 5Record in the sysoplog when someone adds to BBSList
  2. Conan #1 @7304
  3. Thursday, April 8, 1993   4:35 pm [EST]
  4. ┌────────────────────────────────────────────────────────────────────────────┐
  5. │ Mod Name      : CONAN13                 Mod Author: Conan 1@473   ComLink  │
  6. │ Difficulty    : ███▒▒▒▒▒▒▒                                1@7304  IceNet   │
  7. │ WWIV Version  : 4.22                                      1@7300  WWIVWeb  │
  8. │ Mod Date      : 04/08/93                                  1@7307  WWIVNet  │
  9. │ Files Affected: MISCCMD.C                                 1@17325 WWIVLink │ 
  10. │ Description   : Record in sysoplog when user adds to the BBS list          │
  11. └────────────────────────────────────────────────────────────────────────────┘
  12. This is a very simple two line mod that I wanted to put in, because I've had
  13. many lowlife users who go into the bbslist and add numbers like 911-9023 or
  14. 976 numbers or just basically corrupt the BBSList ...so here's a basic mod
  15. to put in that writes to the sysoplog.
  16.  
  17. + add
  18. = don't change
  19.  
  20. Open up MISCCMD.C and search down to void bbslist(void)
  21. and make the following changes...
  22.             
  23. =           nl();
  24. =           prt(5,get_string(499));
  25. =           if (yn()) {
  26. =             sprintf(s1,"%sBBSLIST.MSG",syscfg.gfilesdir);
  27. =             f=open(s1,O_RDWR | O_CREAT | O_BINARY, S_IREAD | S_IWRITE);
  28. =             if (filelength(f)) {
  29. =               lseek(f,-1L,SEEK_END);
  30. =               read(f,((void *)&ch1),1);
  31. =               if (ch1==26)
  32. =                 lseek(f,-1L,SEEK_END);
  33. +               sprintf(s1,"1Added 7%-30s 1to the BBS List", name);
  34. +               sysoplog(s1);
  35. =             }
  36. =             write(f,(void *)s,strlen(s));
  37. =             close(f);
  38. =             nl();
  39.  
  40.  
  41. And that's all there is to it! Comments, problems, suggestions? You can call
  42. my board, Perfect World BBS (703)255-6606 or E-Mail me on any of the 
  43. following networks...: 
  44.         
  45.         1@473    ComLink
  46.         1@7304   IceNet
  47.         1@7300   WWIVWeb
  48.         1@7307   WWIVNet
  49.         1@17325  WWIVLink
  50.  
  51.                                         1C7onan
  52.  
  53. 7╓7┐7╓7┐7╓7─┐7╓7┐7╓7┐7╓7┐7┌╥7┐ 7╥ 7┬7╓7┐7╓7─┐7╖ 7╥7┐ 7╓7┐7╓7┐7╓7┐  5IceNet @7304 3≡ 1WWIVNet @7307
  54. 7║7┘7╟0 7╟7┬┘7╟0 7╟0 7║0 7 ║  7║╥7│7║7│7╟7┬┘7║ 7║7│ 7╟7┤7╟7┤7╙7┐  7WWIVLink @17325 3≡ 6ComLink @473
  55. 7╨0 7╙7┘7╨7└ 7╨0 7╙7┘7╙7┘7 ╨  7╙╨7┘7╙7┘7╨7└ 7╙7┘7╨7┘ 7╙7┘7╙7┘7╙7┘  17o3-255-66o6 3≡ 2WWIVWeb @73000
  56.  
  57. 
  58. 27╓7┐7╓7┐7╓7─┐7╓7┐7╓7┐7╓7┐7┌╥7┐ 7╥ 7┬7╓7┐7╓7─┐7╖ 7╥7┐ 7╓7┐7╓7┐7╓7┐  5IceNet @7304 3≡ 1WWIVNet @7307
  59. 37║7┘7╟0 7╟7┬┘7╟0 7╟0 7║0 7 ║  7║╥7│7║7│7╟7┬┘7║ 7║7│ 7╟7┤7╟7┤7╙7┐  7WWIVLink @17325 3≡ 6ComLink @473
  60. 47╨0 7╙7┘7╨7└ 7╨0 7╙7┘7╙7┘7 ╨  7╙╨7┘7╙7┘7╨7└ 7╙7┘7╨7┘ 7╙7┘7╙7┘7╙7┘  17o3-255-66o6 3≡ 2WWIVWeb @73000
  61. 5
  62. 6
  63.